home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / mus / misc / sonicartun.lha / Sonic_Arranger_Replay_Ex.s < prev    next >
Text File  |  1992-03-13  |  1KB  |  45 lines
  1.  
  2. *­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  3. *
  4. *  Soucecode:  Replayer demo.
  5. *
  6. *  © by BrainTrace Design    / Carsten Schlote, Egelseeweg 52,
  7. *                              6302 Lich 1
  8. *
  9. *­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  10. *  Offsets :   0  Hardcalculate some pointers
  11. *        4  Set CIA B Timer B Irq as Irq-Handler
  12. *        8  Remove Irq-Handler
  13. *        12 Start song Nummber 'd0.l'
  14. *        16 Stop song
  15. *        20 Insert SynthEffect ( d0 = note, d1 = voice )
  16. *        24 Interruptroutine, if you want to bypass
  17. *              offset 4 and 8.
  18. *­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  19.  
  20.    SECTION  Music,CODE_C
  21.  
  22. start:
  23.          BSR   Module+0         ; Init 32-Bit Pointers
  24.  
  25.          Bsr   Module+4         ; Set Timer Irq
  26.  
  27.          moveq #0,d0
  28.          bsr   Module+12         ; Start song zero
  29.  
  30. .wait    btst  #6,$bfe001
  31.          bne   .wait
  32.  
  33.          bsr   Module+16         ; Song stop
  34.  
  35.          bsr   Module+8          ; Remove IRQ-Handler
  36.  
  37.          moveq #0,d0
  38.          rts
  39. .error   moveq #20,d0
  40.          rts
  41. Module:
  42.          IncBin  "t:rts.pc"      ; Change this !
  43.  
  44.          END
  45.